﻿Public Class SolicitudFalloAlta
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante el alta de la Solicutud")
        Me.codigo = Utils.Enumeradores.Excepeciones.SolicitudFalloAlta
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante el alta de la Solicutud"
        Me.innerException2 = innerException
    End Sub
End Class

Public Class SolicitudFalloEditar
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la actualización de la Solicutud")
        Me.codigo = Utils.Enumeradores.Excepeciones.SolicitudFalloEditar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la actualización de la Solicutud"
        Me.innerException2 = innerException
    End Sub
End Class

Public Class SolicitudFalloBaja
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la baja de la Solicutud")
        Me.codigo = Utils.Enumeradores.Excepeciones.SolicitudFalloEliminar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la baja de la Solicutud"
        Me.innerException2 = innerException
    End Sub
End Class

Public Class SolicitudFalloBuscar
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la Solicutud de la Solicutud")
        Me.codigo = Utils.Enumeradores.Excepeciones.SolicitudFalloBuscar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la Solicutud de la Solicutud"
        Me.innerException2 = innerException
    End Sub
End Class

Public Class SolicitudFalloConsultar
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la consulta de Solicituds")
        Me.codigo = Utils.Enumeradores.Excepeciones.SolicitudFalloConsultar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la consulta de Solicitud"
        Me.innerException2 = innerException
    End Sub
End Class
